home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol6n14.arc / REMOVE.BAS < prev    next >
BASIC Source File  |  1987-08-16  |  6KB  |  89 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE REMOVE.COM
  2. 110 OPEN "REMOVE.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  69 
  6. 150    LINESUM = 0
  7. 160    FOR J = 1 TO 8
  8. 170       READ BYTE
  9. 180       CHECKSUM = CHECKSUM + BYTE
  10. 190       LINESUM = LINESUM + BYTE
  11. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  12. 210       PUT #1
  13. 220    NEXT J
  14. 230    READ LINECHECK
  15. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  16. 250 NEXT I
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 51809 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   202,     0,    67,   111,   112,   121,   114,   960
  21. 300 DATA    105,   103,   104,   116,    32,    49,    57,    56,   622
  22. 310 DATA     55,    32,    90,   105,   102,   102,    45,    68,   599
  23. 320 DATA     97,   118,   105,   115,    32,    80,   117,    98,   762
  24. 330 DATA    108,   105,   115,   104,   105,   110,   103,    32,   782
  25. 340 DATA     67,   111,    46,    74,   101,   102,   102,    32,   635
  26. 350 DATA     80,   114,   111,   115,   105,   115,   101,    13,   754
  27. 360 DATA     10,    78,   111,   110,   101,    32,   105,   110,   657
  28. 370 DATA    115,   116,    97,   108,   108,   101,   100,    13,   758
  29. 380 DATA     10,    36,    13,    10,    68,   101,   105,   110,   453
  30. 390 DATA    115,   116,    97,   108,   108,    97,   116,   105,   862
  31. 400 DATA    111,   110,    32,   102,    97,   105,   108,   101,   766
  32. 410 DATA    100,    13,    10,    36,    13,    10,    78,   117,   377
  33. 420 DATA    109,    98,   101,   114,    32,   111,   102,    32,   699
  34. 430 DATA    105,   110,   115,   116,    97,   108,   108,    97,   856
  35. 440 DATA    116,   105,   111,   110,   115,    58,    32,    36,   683
  36. 450 DATA     13,    10,    80,   114,   101,   115,   115,    32,   580
  37. 460 DATA     69,    78,    84,    69,    82,    32,   116,   111,   641
  38. 470 DATA     32,   114,   101,   109,   111,   118,   101,    44,   730
  39. 480 DATA     32,    69,    83,    67,    32,   116,   111,    32,   542
  40. 490 DATA     97,    98,   111,   114,   116,    13,    10,    36,   595
  41. 500 DATA     13,    10,    68,   101,   105,   110,   115,   116,   638
  42. 510 DATA     97,   108,   108,    97,   116,   105,   111,   110,   852
  43. 520 DATA     32,    99,   111,   109,   112,   108,   101,   116,   788
  44. 530 DATA    101,   100,    13,    10,    36,     0,     0,     0,   260
  45. 540 DATA      0,     0,     0,     0,     0,   180,    68,    50,   298
  46. 550 DATA    255,   205,    26,   128,   255,   255,   116,     9,  1249
  47. 560 DATA    141,    22,    55,     1,   180,     9,   205,    33,   646
  48. 570 DATA    195,   180,     9,   141,    22,   100,     1,   205,   853
  49. 580 DATA     33,    38,   161,     3,     1,   163,   203,     1,   603
  50. 590 DATA    232,   211,     0,   232,    30,     1,   232,    27,   965
  51. 600 DATA      1,   232,   227,     0,   180,     9,   141,    22,   812
  52. 610 DATA    128,     1,   205,    33,   180,     0,   205,    22,   774
  53. 620 DATA     60,    13,   116,     5,    60,    27,   117,   244,   642
  54. 630 DATA    195,    30,   142,    30,   199,     1,   190,   133,   920
  55. 640 DATA      1,    46,   140,     6,   197,     1,    51,   192,   634
  56. 650 DATA    142,   192,    51,   255,   185,     0,     2,   250,  1077
  57. 660 DATA    243,   165,   251,   142,   192,    64,    38,   128,  1223
  58. 670 DATA     62,     0,     0,    77,   117,   245,    38,    59,   598
  59. 680 DATA      6,     1,     0,   117,   238,    46,   140,     6,   554
  60. 690 DATA    201,     1,    46,   142,    30,   197,     1,    46,   664
  61. 700 DATA    139,    54,   203,     1,    78,   177,     2,   211,   865
  62. 710 DATA    230,   129,   198,     5,     1,   139,    28,    75,   805
  63. 720 DATA    142,   195,    38,     3,    30,     3,     0,    67,   478
  64. 730 DATA    142,   195,    67,    38,    59,    30,     1,     0,   532
  65. 740 DATA    117,   237,   140,   200,    59,   216,   116,    44,  1129
  66. 750 DATA     46,   161,   201,     1,   142,   192,    38,     3,   784
  67. 760 DATA      6,     3,     0,    64,   142,   192,    38,   128,   573
  68. 770 DATA     62,     0,     0,    90,   116,   209,    38,    59,   574
  69. 780 DATA     30,     1,     0,   117,   233,   139,   208,    64,   792
  70. 790 DATA    142,   192,   180,    73,   205,    33,   114,    21,   960
  71. 800 DATA    139,   194,   235,   216,   142,    68,     2,   180,  1176
  72. 810 DATA     73,   205,    33,   114,     8,   142,     4,   180,   759
  73. 820 DATA     73,   205,    33,   115,     8,    31,   141,    22,   628
  74. 830 DATA     74,     1,   233,    39,   255,    31,   142,     6,   781
  75. 840 DATA    197,     1,    38,   255,    14,     3,     1,   141,   650
  76. 850 DATA     22,   168,     1,   233,    22,   255,   212,    10,   923
  77. 860 DATA      5,    48,    48,   128,   252,    48,   116,     8,   653
  78. 870 DATA     80,   138,   212,   180,     2,   205,    33,    88,   938
  79. 880 DATA    180,     2,   138,   208,   205,    33,   195,   252,  1213
  80. 890 DATA    139,    14,   203,     1,   191,     5,     1,    30,   584
  81. 900 DATA     38,   142,    29,    46,   140,    30,   199,     1,   625
  82. 910 DATA    190,   130,     0,   128,   124,   254,     1,   118,   945
  83. 920 DATA     17,    81,   138,    76,   254,    50,   237,    73,   926
  84. 930 DATA    172,   180,     2,   138,   208,   205,    33,   226,  1164
  85. 940 DATA    247,    89,   232,     7,     0,   131,   199,     4,   909
  86. 950 DATA    226,   214,    31,   195,   180,     2,   178,    13,  1039
  87. 960 DATA    205,    33,   180,     2,   178,    10,   205,    33,   846
  88. 970 DATA    195,     0,     0,     0,     0,     0,     0,     0,   195
  89.